(defun C:XIReactor ( / )
  ;;
  (vl-load-com) ;;load reactor handling system
  ;;
  ;; Clear any current command reactors
  (foreach n (vlr-pers-list) (vlr-pers-release n)(vlr-remove n))
  ;;
  ;; Define reactor link to AutoCAD
  (setq MyXIReactor
         (vlr-dwg-reactor "MyXIReactor" '((:vlr-endDwgOpen . xilists)))
  )
  ;;
  ;; Define as persistant - will remain
  ;; with drawing and require reloading
  ;; of modules when drawing reloaded.
  (vlr-pers MyXIReactor)
  ;;
  (prompt "\nReactor \"MyXIReactor\" is now ready.")
  (princ)
)